home *** CD-ROM | disk | FTP | other *** search
- <?xml version="1.0" encoding="utf-8" ?>
- <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
- <stack>
- <name>in</name>
- <id>-1</id>
- <cardCount>1</cardCount>
- <cardID>2885</cardID>
- <listID>4020</listID>
- <cantModify><false /></cantModify>
- <cantDelete><false /></cantDelete>
- <cantAbort><false /></cantAbort>
- <cardSize>
- <width>512</width>
- <height>342</height>
- </cardSize>
- <script>***********************on mousedown -- 6 Jan 88 - ToggleFieldStyle by Peter Fraterdeus--•Please Include these comments if you use my NotePads!-- This Script was written by Peter Fraterdeus of Alphabets, Inc.-- CompuServe 73306,2703. In the interest of keeping StackWare healthy¬-- you could send comments to 804 Dempster St., Evanston, IL. 60202 !-- Thanks!--•This works well with the MemoNotes below, since they're card fields-- Place in Home stack for global relevance…set lockScreen to truemagicCopyget the name of the targetif it contains "Field" thenif the shiftKey is down and the commandKey is down thenget style of the targetif it <>"Scrolling" thenset style of the target to scrollingelseset style of the target to rectangle -- change for a differentend if -- default rect.end ifelseif it contains "button" and it contains "Note" thenset lockScreen to falseMoveNoteexit to hypercardend ifend ifend mousedown**********************on MoveNoteglobal gMoveNoteput the mouseLoc into tempwait 10 -- if the mouse doesn't move within 10 clicks then forget itget the mouseLocif temp<>it thenrepeat until the mouse is up -- doDragButtonset the loc of target to the mouseLoc -- a neat trick,end repeatput true into gMoveNote -- one of the great qualities ofelseput false into gMoveNote -- object based environments....end ifsend mouseup to target -- I borrowed the concept, but thechoose browse tool -- execution is completely my design...end moveNote**********************on memoNote -- 6 Jan 88 — MemoNotes™ by Peter Fraterdeus-- Creates Note button and field on current card.--•Shift-Option—Click on the MemoNote Button to Copy the button, then-- go to your Stack and paste it into the Background.----•Cut this "on memoNote" Script and paste it into the Background,-- Stack, or Home script. (In Home it will be global for all stacks!)-- The only script needed in the MemoNoteButton is…-- "send copyNote" (and "on mouseup…end mouseup", of course!)----•The Scrolling Note area toggles on and off when the Note Button-- is clicked. Note that you can set the size of the default field-- by changing fieldWidth and fieldHeight.----•Please Include these comments if you use my NotePads!-- This Script was written by Peter Fraterdeus of Alphabets, Inc.-- CompuServe 73306,2703. In the interest of keeping ShareWare healthy¬-- you could send $15 to 804 Dempster St., Evanston, IL. 60202 !-- Thanks!--•Updated 23Jan88 to move notes on click&drag-- as well as some other polishing of the codeset lockscreen to trueMagicCopyif the shiftKey is down then -- Shift-Click to edit script*edit script of meexit memonote -- * these will work with any buttonelseShow msgput "Click where you want the new Note... (or command-. to cancel)"beepset cursor to 2set lockscreen to truewait until the mouse is downput the MouseH into HMouse -- "the clickloc" didn't work here!put the MouseV into VMouse -- it saved the loc of the MemoNote Bttn.set cursor to 4put the number of buttons into ButtonNumput the number of card fields into FieldNumput 200 into fieldWidth -- change these for different note size.put 100 into fieldHeight --choose button tooldrag from HMouse,VMouse to¬HMouse+70,VMouse+17 with commandKey -- Draw the new Buttonchoose field tool -- this actually enables the new button so that-- its properties may be set...put "card button (ButtonNum +1)" into itset name of it to "Note" -- don't change this!show itset style of it to Rectangleset autohilite of it to falseset hilite of it to trueset showname of it to truedrag from HMouse,VMouse+16 to HMouse+fieldWidth,¬VMouse+fieldHeight with commandKey -- Draw the new Fieldchoose browse tool -- this actually enables the new fieldget the id of card field (FieldNum +1)set name of card field id it to "Note"&&itput "card field id " before itshow itset style of it to Scrollingset locktext of it to falseset showlines of it to trueset textFont of it to Genevaset textSize of it to 9put it into fieldID-- *** Building the ButtonScript ***put"*NoteButtonScript*"&return after NoteButtonScriptput"on mouseup"&return after NoteButtonScriptput" global gMoveNote"&return after NoteButtonScriptput" put the visible of"&&Fieldid&&" into showing"&return after NoteButtonScriptput" showfield showing"&return after NoteButtonScriptput"end mouseUp"&return after NoteButtonScriptput"**"&return after NoteButtonScriptput"on killField"&return after NoteButtonScriptput" set the visible of"&&Fieldid&&" to true"&return after NoteButtonScriptput" choose field Tool"&return after NoteButtonScriptput" click at the loc of"&&Fieldid&&""&return after NoteButtonScriptput" domenu clear field"&return after NoteButtonScriptput"end killField"&return after NoteButtonScriptput"***"&return after NoteButtonScriptput"on showField showing"&return after NoteButtonScriptput" global gMoveNote"&return after NoteButtonScriptput" if the paramcount=0 then put false into showing"&return after NoteButtonScriptput" if (showing=false and gMoveNote = false)¬"&return after NoteButtonScriptput" or (showing=true and gMoveNote = true) then"&return after NoteButtonScriptput" -- if the field isn't showing and the button hasn't been moved"&return after NoteButtonScriptput" -- then show the field in its present location"&return after NoteButtonScriptput" -- or if the field is showing but the button has been moved"&return after NoteButtonScriptput" -- then reshow the field in its new location"&return after NoteButtonScriptput" doHilite true"&return after NoteButtonScriptput" get the rect of me"&return after NoteButtonScriptput" put it into bRect"&return after NoteButtonScriptput" get the rect of "&&Fieldid&&""&return after NoteButtonScriptput" put (item 3 of it - item 1 of it) /2 into fH"&return after NoteButtonScriptput" put (item 4 of it - item 2 of it) /2 into fV"&return after NoteButtonScriptput" show"&&Fieldid&&" at trunc(fH)+item 1 of bRect, ¬"&return after NoteButtonScriptput" trunc(fV)+item 4 of bRect-1"&return after NoteButtonScriptput" else"&return after NoteButtonScriptput" doHilite false"&return after NoteButtonScriptput" hide"&&Fieldid&&""&return after NoteButtonScriptput" end if"&return after NoteButtonScriptput"end showField"&return after NoteButtonScriptput"****"&return after NoteButtonScriptput"MemoNotes™ Hypernote system"&return after NoteButtonScriptput"©1988 PeterFraterdeus"&return after NoteButtonScriptput"CIS 73306,2703"&return after NoteButtonScriptput"ShareWare-$15. to: Alphabets, Inc."&return after NoteButtonScriptput"804 Dempster St./ Evanston, IL. 60202"&return after NoteButtonScriptchoose button toolset script of card button (buttonNum +1) to NoteButtonScriptchoose browse toolset cursor to 1send tabKey to fieldIDput " " into msgend ifend memoNote**********************************************on ShowNotes -- 7 Jan '88 by Peter Fraterdeus-- Part of the MemoNotes™ system--•Sends a mouseUp message to any button named "Note" on a card-- thus toggling the visiblity of the Note Field--•Put this script in your Home Stack, and use Shift-Opt.Click-- to copy the ShowNotes button, paste in Bkgnd. of your Stack.set lockscreen to trueMagicCopyif the shiftKey is down then -- Shift-Click to edit script*edi
.iso/Stacks/Hyper Business/Memo Stuff/MemoNoteStack/PATs.png){kind=link}